home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / fkey / basictes.sit / Basic Test Case
Encoding:
Text File  |  1986-02-07  |  2.0 KB  |  88 lines  |  [TEXT/MACA]
  1.  
  2. REM Q&D BASIC Test Case
  3.  
  4. 0   CLS
  5.     PRINT "Which program do you wish to run?"
  6.     PRINT "0) Quit"
  7.     PRINT "1) Factorial"
  8.     PRINT "2) Standard Deviation"
  9.     PRINT "3) Mortgage Payment"
  10.     PRINT "4) Prime Numbers"
  11.     INPUT A
  12.     IF A=0 THEN END
  13.     IF A=1 THEN 10
  14.     IF A=2 THEN 20
  15.     IF A=3 THEN 30
  16.     IF A=4 THEN 40
  17.     GOTO 0
  18.  
  19.  
  20. 10  INPUT "Compute P! for P=0 to P=";N
  21.     LET F = 1
  22. 11  PRINT "P="; P, "P!="; F
  23.     LET P = P + 1
  24.     LET F = P * F
  25.     IF P <= N THEN 11
  26.     PRINT "****** DONE ******"
  27.     PRINT:PRINT "Hit any key to continue":WHILE INKEY()=0:WEND
  28.     GOTO 0
  29.  
  30. 20  PRINT "Standard Deviation of a Series"
  31.     X=0:T=0:S=0:N=0:A=0:V=0:D=0
  32.  
  33. 21  INPUT "Enter Data Point (999999 {6 Nines} to Stop)",X
  34.     IF X=999999 THEN 22
  35.     T=T+X:S=S+X^2:N=N+1
  36.     GOTO 21
  37.  
  38. 22  A=T/N:V=S/N-A^2:D=SQR(V)
  39.     PRINT
  40.     PRINT "Data Point Sum",,"=";T
  41.     PRINT "Data Point Mean",,"=";A
  42.     PRINT "Data Point Variance",,"=";V
  43.     PRINT "Data Point Standard Deviation","=";D
  44.     PRINT
  45.  
  46.     PRINT:PRINT "Hit any key to continue":WHILE INKEY()=0:WEND
  47.     GOTO 0
  48.  
  49.  
  50. 30  PRINT "Monthy Mortgage Payment"
  51.  
  52.     REM Enter Information
  53.     INPUT "Enter principal";P
  54.     INPUT "Enter term in years";T
  55.     INPUT "Enter starting interest percentage to check";A
  56.     INPUT "Enter the interest increment";C
  57.     INPUT "Enter the ending interest percentage";B
  58.     
  59.     REM Print Headings
  60.     PRINT ,,"Interest","Monthly"
  61.     PRINT "Principal", "Term","Rate", "Payment"
  62.     PRINT
  63.  
  64.     REM Main Loop
  65.     FOR I=A TO B STEP C
  66.         REM Inside Loop
  67.         M=P*(I/1200)/(1-(1+I/1200)^(-12*T))
  68.         REM Round
  69.         N=SGN(M)*INT(ABS(M)*100+.5)/100
  70.         PRINT "$";P,T;"Years",I;"%","$";N
  71.     NEXT I
  72.  
  73.     PRINT:PRINT "Hit any key to continue":WHILE INKEY()=0:WEND
  74.     GOTO 0
  75.  
  76.  
  77. 40  PRINT "Print Prime Numbers 1 to 1001"
  78.     PRINT; 1;2;3;
  79.     FOR N=3 TO 101 STEP 2
  80.         FOR T=3 TO SQR(N) STEP 2
  81.             IF INT(N/T)=N/T THEN T=SQR(N)
  82.         NEXT T
  83.         PRINT N;
  84. 41  NEXT N
  85.  
  86. 42  PRINT:PRINT:PRINT "Hit any key to continue":WHILE INKEY()=0:WEND
  87.     GOTO 0
  88.